home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Leonardo the Inventor
/
Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso
/
LEOWINMV
/
SHARED.DIR
/
03146_Script_PRINT ALL CARDS 2
< prev
next >
Wrap
Text File
|
1996-04-01
|
3KB
|
81 lines
-- -----------------------------------------------------------
-- Handler doPrintAllCards
-- THIS VERSION PRINTS THEM USING THE FILE NAMES
on doPrintAllCards filePathName
printAllCardsOnePage(filePathName, "alarm.pic", "artill.pic", "ball.pic", "Bell.pic")
printAllCardsOnePage(filePathName, "Bellto.pic", "bicycle.pic", "bobbin.pic", "Bomb.pic")
printAllCardsOnePage(filePathName, "Bridge.pic", "Cannon.pic", "compass.pic", "Crossb.pic")
printAllCardsOnePage(filePathName, "diving.pic", "Drawbr.pic", "Dredge.pic", "drill.pic")
printAllCardsOnePage(filePathName, "Drums.pic", "Drums2.pic", "Drums3.pic", "filemake.pic")
printAllCardsOnePage(filePathName, "fortre.pic", "Gun.pic", "helico.pic", "joint.pic")
printAllCardsOnePage(filePathName, "landin.pic", "lifepr.pic", "metalrol.pic", "Missile.pic")
printAllCardsOnePage(filePathName, "paddle.pic", "parach.pic", "Pedomet.pic", "reciproc.pic")
printAllCardsOnePage(filePathName, "Recorder.pic", "release.pic", "Rocket.pic", "rotisser.pic")
printAllCardsOnePage(filePathName, "screw.pic", "shearing.pic", "snorke.pic", "spotligh.pic")
printAllCardsOnePage(filePathName, "Steamcan.pic", "Tank.pic", "Viola.pic", "walkin.pic")
printAllCardsOnePage(filePathName, "Walls.pic", "wheel.pic", "windlass.pic", "wing.pic")
printAllCardsOnePage(filePathName, "woodplan.pic", "Woodwi.pic", "wormgear.pic")
end
on printAllCardsOnePage filePathName, file1, file2, file3, file4
-- create the object
set printObj = printomatic(mnew)
if not(objectP( printObj )) then
alert "Sorry...Error in printing."
exit
end if
printobj(mSetDocumentName, "Leonardo 2")
-- set up the new object:
-- reset to page 1
printobj(mreset)
-- set landscape mode
printobj(msetlandscapemode, TRUE)
set paperwidth = printobj(mgetpaperwidth)
set paperheight = printobj(mgetpaperheight)
printobj(msetmargins, 0, 0, paperwidth, paperheight)
-- set the printable space to the margins
printobj(msetprintablemargins)
-- set the margins to as big as possible
set pageW = printObj(mGetPageWidth)
set pageH = printObj(mGetPageheight)
-- page footer right side
-- printObj(mSetPageNumSymbol,"▐")
-- printObj(mSetTextSize,10)
-- printObj(mSetTextStyle,"normal")
-- printObj(mDrawText, "page ▐", pageW - 10, pageH)
set pictureFileList = getPictureFileList()
set numPictures = count(pictureFileList)
set numPages = numPictures / 4
-- register the xobject
printObj(mRegister, "PMAT130-013-01075")
-- start a new page
printobj(mnewpage)
printobj(mpicture, filePathName & file1, 0, 0, pageW / 2, (pageH / 2) - 10)
printobj(mpicture, filePathName & file2, 0, pageH / 2, pageW / 2, pageH - 10)
printobj(mpicture, filePathName & file3, pageW / 2, 0, pageW, (pageH / 2) - 10)
-- if statement for page 13 that has only 3 cards on it
if not voidP(file4) then
printobj(mpicture, filePathName & file4, pageW / 2, pageH / 2, pageW, pageH - 10)
end if
-- print the page
printobj(mprint)
-- printObj(mprintPreview)
-- dispose of the object
printObj(mdispose)
end